The maps below show the locations of garden sites in the Charlottesville region overlayed with demographic information. In each map, census tracts or block groups are colored on a gradient based on the relevant demographic variable. Gardens managed by IRC, Urban Agriculture Collective, City Schoolyard, The Charlottesville Parks Department, and other community members are shown as color-coded dots. Sites that were formerly gardens, but that have been lost, are also shown.
Demographic information is shown at either the census tract or block group level, depending on availability of data. All demographic data was pulled from the 2019 American Community Survey data by the U.S. Census.
Click on the different tabs below to see each of the maps with different demographic information. Zoom in or out on the map to see more detail, and click on garden sites for more information about the garden. Scroll over the icon above the legend in the lower right of the map to control which gardens are displayed by selecting or de-selecting the corresponding check box in the pop-up.
The American Community Survey measures income at the household level, based on households that received public assistance income/food stamps/SNAP in the past 12 months. Here we show the estimated percent of households that receive SNAP benefits–calculated by dividing the number of households that receive SNAP by the total number of households.
# Points for legend
Points<-data.frame(x=runif(1:6),
var = c(1, 2, 3, 4, 5, 6))
Points <- Points %>%
mutate(Category = case_when(var == 1 ~ "IRC",
var == 2 ~ "UAC",
var == 3 ~ "CS",
var == 4 ~ "CPD",
var == 5 ~ "Oth",
var == 6 ~ "Lost",
TRUE ~ "C"),
color = case_when(Category == "IRC" ~ "yellow",
Category == "UAC" ~ "orange",
Category == "CS" ~ "purple",
Category == "CPD" ~ "blue",
Category == "Oth" ~ "grey",
Category == "Lost" ~ "red",
TRUE ~ "black"))
map = leaflet() %>%
addTiles()
addLegendCustom <- function(map, colors, labels, sizes, opacity = 0.75){
colorAdditions <- paste0(colors, "; border-radius: 50%; width:", sizes, "px; height:", sizes, "px")
labelAdditions <- paste0("<div style='display: inline-block;height: ",
sizes, "px;margin-top: 4px;line-height: ", sizes, "px;'>",
labels, "</div>")
return(addLegend(map, colors = colorAdditions,
labels = labelAdditions, opacity = opacity))
}pal <- colorNumeric("Greys", domain = blkgr$perc_snaphseE)
leaflet()%>%
addMapPane(name = "polygons", zIndex = 410) %>%
addMapPane(name = "IRC", zIndex = 420) %>%
addMapPane(name = "Urban Agr Collective", zIndex = 420) %>%
addMapPane(name = "City Schoolyard", zIndex = 420) %>%
addMapPane(name = "Lost gardens", zIndex = 420) %>%
addMapPane(name = "Parks Dep.", zIndex = 420) %>%
addMapPane(name = "Other", zIndex = 420) %>%
addProviderTiles("CartoDB.Positron") %>%
addPolygons(data = blkgr,
fillColor = ~pal(perc_snaphseE),
weight = 1,
opacity = 1,
color = "gray",
fillOpacity = 0.6,
group = "polygons",
highlight = highlightOptions(
weight = 2,
fillOpacity = 0.8),
popup = paste0("GEOID: ", blkgr$GEOID, "<br>",
"Percent SNAP households: ", blkgr$perc_snaphseE)) %>%
addPolylines(data = cville, color = "black", opacity = 1, weight = 3,group = "polygons") %>%
addLegend("bottomright", pal = pal, values = blkgr$perc_snaphseE,
title = "Percent SNAP <br> households", opacity = 0.7) %>%
addCircles(data = gardendat[gardendat$cat == "IRC New Roots",],
group = "IRC",
color = "yellow",
radius = 8,
fillOpacity = 0.75,
opacity = 1,
popup = paste0("Location: ", gardendat[gardendat$Managed_by == "IRC New Roots",]$Garden_property_name, "<br>",
"Managed by: ", "IRC New Roots", "<br>",
"Size: ", gardendat[gardendat$Managed_by == "IRC New Roots",]$Total_size)) %>%
addCircles(data = gardendat[gardendat$cat == "Urban Agriculture Collective" & gardendat$Status == "Existing",],
group = "Urban Agr Collective",
color = "orange",
radius = 8,
fillOpacity = 0.75,
opacity = 1,
popup = paste0("Location: ", gardendat[gardendat$Managed_by == "Urban Agriculture Collective" & gardendat$Status == "Existing",]$Garden_property_name, "<br>",
"Managed by: ", "Urban Agriculture Collective", "<br>",
"Size: ", gardendat[gardendat$cat == "Urban Agriculture Collective" & gardendat$Status == "Existing",]$Total_size)) %>%
addCircles(data = gardendat[gardendat$cat == "City Schoolyard Garden",],
group = "City Schoolyard",
color = "purple",
radius = 8,
fillOpacity = 0.75,
opacity = 1,
popup = paste0("Location: ", gardendat[gardendat$Managed_by == "City Schoolyard Garden",]$Garden_property_name, "<br>",
"Managed by: ", "City Schoolyard", "<br>",
"Size: ", gardendat[gardendat$cat == "City Schoolyard Garden",]$Total_size)) %>%
addCircles(data = gardendat[gardendat$Status == "Lost",], group = "Lost gardens",
color = "red",
radius = 8,
fillOpacity = 0.75,
opacity = 1,
popup = paste0("Location: ", gardendat[gardendat$Status == "Lost",]$Garden_property_name, "<br>",
"Managed by: ", "Urban Agriculture Collective", "<br>",
"Size: ", gardendat[gardendat$Status == "Lost",]$Total_size))%>%
addCircles(data = gardendat[gardendat$cat == "Charlottesville Parks Department",],
group = "Parks Dep.",
color = "blue",
radius = 8,
fillOpacity = 0.75,
opacity = 1,
popup = paste0("Location: ", gardendat[gardendat$Managed_by == "Charlottesville Parks Department",]$Garden_property_name, "<br>",
"Managed by: ", "Charlottesville Parks Department", "<br>",
"Size: ", gardendat[gardendat$cat == "Charlottesville Parks Department",]$Total_size)) %>%
addCircles(data = gardendat[gardendat$cat == "Other",],
group = "Other",
color = "black",
radius = 8,
fillOpacity = 0.75,
opacity = 1,
popup = paste0("Location: ", gardendat[gardendat$cat == "Other",]$Garden_property_name, "<br>",
"Managed by: ", gardendat[gardendat$cat == "Other",]$Managed_by, "<br>",
"Size: ", gardendat[gardendat$cat == "Other",]$Total_size)) %>%
addLayersControl(
overlayGroups = c("IRC", "Urban Agr Collective", "City Schoolyard", "Lost gardens", "Parks Dep.", "Other"),
options = layersControlOptions(collapsed = TRUE),
position = "bottomright"
) %>%
addLegendCustom(colors = c("yellow", "orange", "purple", "blue", "black", "red"),
labels = c("International Rescue Committee", "Urban Agriculture Collective", "City Schoolyard", "Charlottesville Parks Department", "Other", "Lost gardens"), sizes = rep(10, 6))The American Community Survey measures income at the household level, capturing income in the last 12 months of all individuals 15 and older in the household. The median household income is the income threshold that divides households into two halves (half of the households fall below the value and half of the households fall above the value.)
pal <- colorNumeric("Greys", domain = blkgr$hhincE)
leaflet()%>%
addMapPane(name = "polygons", zIndex = 410) %>%
addMapPane(name = "IRC", zIndex = 420) %>%
addMapPane(name = "Urban Agr Collective", zIndex = 420) %>%
addMapPane(name = "City Schoolyard", zIndex = 420) %>%
addMapPane(name = "Lost gardens", zIndex = 420) %>%
addMapPane(name = "Parks Dep.", zIndex = 420) %>%
addMapPane(name = "Other", zIndex = 420) %>%
addProviderTiles("CartoDB.Positron") %>%
addPolygons(data = blkgr,
fillColor = ~pal(hhincE),
weight = 1,
opacity = 1,
color = "gray",
fillOpacity = 0.6,
group = "polygons",
highlight = highlightOptions(
weight = 2,
fillOpacity = 0.8),
popup = paste0("GEOID: ", blkgr$GEOID, "<br>",
"Median household <br> income: ", blkgr$hhincE))%>%
addPolylines(data = cville, color = "black", opacity = 1, weight = 3,group = "polygons") %>%
addLegend("bottomright", pal = pal, values = blkgr$hhincE,
title = "Median household <br> income", opacity = 0.7) %>%
addCircles(data = gardendat[gardendat$cat == "IRC New Roots",],
group = "IRC",
color = "yellow",
radius = 8,
fillOpacity = 1,
opacity = 1,
popup = paste0("Location: ", gardendat[gardendat$Managed_by == "IRC New Roots",]$Garden_property_name, "<br>",
"Managed by: ", "IRC New Roots", "<br>",
"Size: ", gardendat[gardendat$Managed_by == "IRC New Roots",]$Total_size)) %>%
addCircles(data = gardendat[gardendat$cat == "Urban Agriculture Collective" & gardendat$Status == "Existing",],
group = "Urban Agr Collective",
color = "orange",
radius = 8,
fillOpacity = 1,
opacity = 1,
popup = paste0("Location: ", gardendat[gardendat$Managed_by == "Urban Agriculture Collective" & gardendat$Status == "Existing",]$Garden_property_name, "<br>",
"Managed by: ", "Urban Agriculture Collective", "<br>",
"Size: ", gardendat[gardendat$cat == "Urban Agriculture Collective" & gardendat$Status == "Existing",]$Total_size)) %>%
addCircles(data = gardendat[gardendat$cat == "City Schoolyard Garden",],
group = "City Schoolyard",
color = "purple",
radius = 8,
fillOpacity = 1,
opacity = 1,
popup = paste0("Location: ", gardendat[gardendat$Managed_by == "City Schoolyard Garden",]$Garden_property_name, "<br>",
"Managed by: ", "City Schoolyard", "<br>",
"Size: ", gardendat[gardendat$cat == "City Schoolyard Garden",]$Total_size)) %>%
addCircles(data = gardendat[gardendat$Status == "Lost",], group = "Lost gardens",
color = "red",
radius = 8,
fillOpacity = 1,
opacity = 1,
popup = paste0("Location: ", gardendat[gardendat$Status == "Lost",]$Garden_property_name, "<br>",
"Managed by: ", "Urban Agriculture Collective", "<br>",
"Size: ", gardendat[gardendat$Status == "Lost",]$Total_size))%>%
addCircles(data = gardendat[gardendat$cat == "Charlottesville Parks Department",],
group = "Parks Dep.",
color = "blue",
radius = 8,
fillOpacity = 1,
opacity = 1,
popup = paste0("Location: ", gardendat[gardendat$Managed_by == "Charlottesville Parks Department",]$Garden_property_name, "<br>",
"Managed by: ", "Charlottesville Parks Department", "<br>",
"Size: ", gardendat[gardendat$cat == "Charlottesville Parks Department",]$Total_size)) %>%
addCircles(data = gardendat[gardendat$cat == "Other",],
group = "Other",
color = "black",
radius = 8,
fillOpacity = 1,
opacity = 1,
popup = paste0("Location: ", gardendat[gardendat$cat == "Other",]$Garden_property_name, "<br>",
"Managed by: ", gardendat[gardendat$cat == "Other",]$Managed_by, "<br>",
"Size: ", gardendat[gardendat$cat == "Other",]$Total_size)) %>%
addLayersControl(
overlayGroups = c("IRC", "Urban Agr Collective", "City Schoolyard", "Lost gardens", "Parks Dep.", "Other"),
options = layersControlOptions(collapsed = TRUE),
position = "bottomright"
) %>%
addLegendCustom(colors = c("yellow", "orange", "purple", "blue", "black", "red"),
labels = c("International Rescue Committee", "Urban Agriculture Collective", "City Schoolyard", "Charlottesville Parks Department", "Other", "Lost gardens"), sizes = rep(10, 6))The percent of individuals in poverty is determined by comparing a family’s total income to an income threshold that varies by family size and composition. For example, in 2018, the poverty threshold for a family with two adults and two children was $25,465. If a family’s income is less than the family’s poverty threshold, then every member of that family is designated as an individual living in poverty. The perccent of individuals in poverty is only available at the census tract level.
pal <- colorNumeric("Greys", domain = tract$povrateE)
leaflet()%>%
addMapPane(name = "polygons", zIndex = 410) %>%
addMapPane(name = "IRC", zIndex = 420) %>%
addMapPane(name = "Urban Agr Collective", zIndex = 420) %>%
addMapPane(name = "City Schoolyard", zIndex = 420) %>%
addMapPane(name = "Lost gardens", zIndex = 420) %>%
addMapPane(name = "Parks Dep.", zIndex = 420) %>%
addMapPane(name = "Other", zIndex = 420) %>%
addProviderTiles("CartoDB.Positron") %>%
addPolygons(data = tract,
fillColor = ~pal(povrateE),
weight = 1,
opacity = 1,
color = "gray",
fillOpacity = 0.6,
group = "polygons",
highlight = highlightOptions(
weight = 2,
fillOpacity = 0.8),
popup = paste0("GEOID: ", tract$GEOID, "<br>",
"Poverty rate: ", tract$povrateE))%>%
addPolylines(data = cville, color = "black", opacity = 1, weight = 3,group = "polygons") %>%
addLegend("bottomright", pal = pal, values = tract$povrateE,
title = "Poverty rate", opacity = 0.7) %>%
addCircles(data = gardendat[gardendat$cat == "IRC New Roots",],
group = "IRC",
color = "yellow",
radius = 8,
fillOpacity = 1,
opacity = 1,
popup = paste0("Location: ", gardendat[gardendat$Managed_by == "IRC New Roots",]$Garden_property_name, "<br>",
"Managed by: ", "IRC New Roots", "<br>",
"Size: ", gardendat[gardendat$Managed_by == "IRC New Roots",]$Total_size)) %>%
addCircles(data = gardendat[gardendat$cat == "Urban Agriculture Collective" & gardendat$Status == "Existing",],
group = "Urban Agr Collective",
color = "orange",
radius = 8,
fillOpacity = 1,
opacity = 1,
popup = paste0("Location: ", gardendat[gardendat$Managed_by == "Urban Agriculture Collective" & gardendat$Status == "Existing",]$Garden_property_name, "<br>",
"Managed by: ", "Urban Agriculture Collective", "<br>",
"Size: ", gardendat[gardendat$cat == "Urban Agriculture Collective" & gardendat$Status == "Existing",]$Total_size)) %>%
addCircles(data = gardendat[gardendat$cat == "City Schoolyard Garden",],
group = "City Schoolyard",
color = "purple",
radius = 8,
fillOpacity = 1,
opacity = 1,
popup = paste0("Location: ", gardendat[gardendat$Managed_by == "City Schoolyard Garden",]$Garden_property_name, "<br>",
"Managed by: ", "City Schoolyard", "<br>",
"Size: ", gardendat[gardendat$cat == "City Schoolyard Garden",]$Total_size)) %>%
addCircles(data = gardendat[gardendat$Status == "Lost",], group = "Lost gardens",
color = "red",
radius = 8,
fillOpacity = 1,
opacity = 1,
popup = paste0("Location: ", gardendat[gardendat$Status == "Lost",]$Garden_property_name, "<br>",
"Managed by: ", "Urban Agriculture Collective", "<br>",
"Size: ", gardendat[gardendat$Status == "Lost",]$Total_size))%>%
addCircles(data = gardendat[gardendat$cat == "Charlottesville Parks Department",],
group = "Parks Dep.",
color = "blue",
radius = 8,
fillOpacity = 1,
opacity = 1,
popup = paste0("Location: ", gardendat[gardendat$Managed_by == "Charlottesville Parks Department",]$Garden_property_name, "<br>",
"Managed by: ", "Charlottesville Parks Department", "<br>",
"Size: ", gardendat[gardendat$cat == "Charlottesville Parks Department",]$Total_size)) %>%
addCircles(data = gardendat[gardendat$cat == "Other",],
group = "Other",
color = "black",
radius = 8,
fillOpacity = 1,
opacity = 1,
popup = paste0("Location: ", gardendat[gardendat$cat == "Other",]$Garden_property_name, "<br>",
"Managed by: ", gardendat[gardendat$cat == "Other",]$Managed_by, "<br>",
"Size: ", gardendat[gardendat$cat == "Other",]$Total_size)) %>%
addLayersControl(
overlayGroups = c("IRC", "Urban Agr Collective", "City Schoolyard", "Lost gardens", "Parks Dep.", "Other"),
options = layersControlOptions(collapsed = TRUE),
position = "bottomright"
) %>%
addLegendCustom(colors = c("yellow", "orange", "purple", "blue", "black", "red"),
labels = c("International Rescue Committee", "Urban Agriculture Collective", "City Schoolyard", "Charlottesville Parks Department", "Other", "Lost gardens"), sizes = rep(10, 6))The American Community Survey measures the number of foreign-born residents at the individual level. Here we show the estimated percent of foreign-born residents–calculated by dividing the number of foreign-born residents by the total population. The number of foreign-born residents is only available at the census tract level.
pal <- colorNumeric("Greys", domain = tract$perc_forbE)
leaflet()%>%
addMapPane(name = "polygons", zIndex = 410) %>%
addMapPane(name = "IRC", zIndex = 420) %>%
addMapPane(name = "Urban Agr Collective", zIndex = 420) %>%
addMapPane(name = "City Schoolyard", zIndex = 420) %>%
addMapPane(name = "Lost gardens", zIndex = 420) %>%
addMapPane(name = "Parks Dep.", zIndex = 420) %>%
addMapPane(name = "Other", zIndex = 420) %>%
addProviderTiles("CartoDB.Positron") %>%
addPolygons(data = tract,
fillColor = ~pal(perc_forbE),
weight = 1,
opacity = 1,
color = "gray",
fillOpacity = 0.6,
group = "polygons",
highlight = highlightOptions(
weight = 2,
fillOpacity = 0.8),
popup = paste0("GEOID: ", tract$GEOID, "<br>",
"Percent foreign born: ", tract$perc_forbE))%>%
addPolylines(data = cville, color = "black", opacity = 1, weight = 3,group = "polygons") %>%
addLegend("bottomright", pal = pal, values = tract$perc_forbE,
title = "Percent Foreign- <br>born residents", opacity = 0.7) %>%
addCircles(data = gardendat[gardendat$cat == "IRC New Roots",],
group = "IRC",
color = "yellow",
radius = 8,
fillOpacity = 1,
opacity = 1,
popup = paste0("Location: ", gardendat[gardendat$Managed_by == "IRC New Roots",]$Garden_property_name, "<br>",
"Managed by: ", "IRC New Roots", "<br>",
"Size: ", gardendat[gardendat$Managed_by == "IRC New Roots",]$Total_size)) %>%
addCircles(data = gardendat[gardendat$cat == "Urban Agriculture Collective" & gardendat$Status == "Existing",],
group = "Urban Agr Collective",
color = "orange",
radius = 8,
fillOpacity = 1,
opacity = 1,
popup = paste0("Location: ", gardendat[gardendat$Managed_by == "Urban Agriculture Collective" & gardendat$Status == "Existing",]$Garden_property_name, "<br>",
"Managed by: ", "Urban Agriculture Collective", "<br>",
"Size: ", gardendat[gardendat$cat == "Urban Agriculture Collective" & gardendat$Status == "Existing",]$Total_size)) %>%
addCircles(data = gardendat[gardendat$cat == "City Schoolyard Garden",],
group = "City Schoolyard",
color = "purple",
radius = 8,
fillOpacity = 1,
opacity = 1,
popup = paste0("Location: ", gardendat[gardendat$Managed_by == "City Schoolyard Garden",]$Garden_property_name, "<br>",
"Managed by: ", "City Schoolyard", "<br>",
"Size: ", gardendat[gardendat$cat == "City Schoolyard Garden",]$Total_size)) %>%
addCircles(data = gardendat[gardendat$Status == "Lost",], group = "Lost gardens",
color = "red",
radius = 8,
fillOpacity = 1,
opacity = 1,
popup = paste0("Location: ", gardendat[gardendat$Status == "Lost",]$Garden_property_name, "<br>",
"Managed by: ", "Urban Agriculture Collective", "<br>",
"Size: ", gardendat[gardendat$Status == "Lost",]$Total_size))%>%
addCircles(data = gardendat[gardendat$cat == "Charlottesville Parks Department",],
group = "Parks Dep.",
color = "blue",
radius = 8,
fillOpacity = 1,
opacity = 1,
popup = paste0("Location: ", gardendat[gardendat$Managed_by == "Charlottesville Parks Department",]$Garden_property_name, "<br>",
"Managed by: ", "Charlottesville Parks Department", "<br>",
"Size: ", gardendat[gardendat$cat == "Charlottesville Parks Department",]$Total_size)) %>%
addCircles(data = gardendat[gardendat$cat == "Other",],
group = "Other",
color = "black",
radius = 8,
fillOpacity = 1,
opacity = 1,
popup = paste0("Location: ", gardendat[gardendat$cat == "Other",]$Garden_property_name, "<br>",
"Managed by: ", gardendat[gardendat$cat == "Other",]$Managed_by, "<br>",
"Size: ", gardendat[gardendat$cat == "Other",]$Total_size)) %>%
addLayersControl(
overlayGroups = c("IRC", "Urban Agr Collective", "City Schoolyard", "Lost gardens", "Parks Dep.", "Other"),
options = layersControlOptions(collapsed = TRUE),
position = "bottomright"
) %>%
addLegendCustom(colors = c("yellow", "orange", "purple", "blue", "black", "red"),
labels = c("International Rescue Committee", "Urban Agriculture Collective", "City Schoolyard", "Charlottesville Parks Department", "Other", "Lost gardens"), sizes = rep(10, 6))